(lisp-indent-defmethod): Correct

indentation of DEFMETHODS with non-standard method
combinations (e.g., PROGN, MIN, MAX).

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index c5e13a4c00f4cc8d438d53747798e1fb1e790696..a203155673c12e0c6de7ecb6e167cf4f2a898ab4 100644 (file)
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -458,7 +458,7 @@ If nil, indent backquoted lists as data, i.e., like quoted lists."
                                            (forward-char 1)
                                             (forward-sexp 3)
                                             (backward-sexp)
-                                           (looking-at ":")))
+                                           (looking-at ":\\|\\sw+")))
                       '(4 4 (&whole 4 &rest 4) &body)
                     (get 'defun 'common-lisp-indent-function))
                   path state indent-point sexp-column normal-indent))